home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d14 / demdat.arc / STKRRE.SBP < prev    next >
Text File  |  1990-06-01  |  3KB  |  93 lines
  1. SBP
  2.   ╜   STKRRE
  3.   ╜   Stock Trading Balance report
  4.   ╜   Last updated Jan 21, 90
  5.  
  6.   │ _ wrerror
  7.   ísktr% 1 wm0: ╜ If not first time then no need to open + dim
  8.   ╫skt%(40),skt$(40)
  9.  
  10. m0:
  11.  sktr% 1
  12.  hd1$ "Stock Trading Balances at "  ( Q,"mmm dd,yy")
  13.  hd12$ "Ref: STKRRE"
  14.  hd2$ "Stock Key                Company                              Stock Type"
  15.  hd3$ "Date      b/s Ref    Quantity  Curr units      Price  US$ Value  Commission    Total Due"
  16.  hd4$ "--------- --- ------ --------  ----------  ---------  ---------  ----------  -----------"
  17.  
  18. m1: 
  19.   ┴USD Value.TRANS,Comm_Value.TRANS,Total_Due.TRANS
  20.   } ┴
  21.   {@52;"   =========  ==========  ==========="
  22.   {@1;"Totals for Stock Trading Balance Report";@54;&6.2 lUSD Value.TRANS;@67;&11 lComm_Value.TRANS;@79;&6.2 lTotal_Due.TRANS
  23.   {@52;"   =========  ==========  ==========="
  24.  
  25.  tkt%  lComm_Value.TRANS:hd2$ "":hd3$ "":hd4$ ""
  26.   æ: {
  27.   {@1;"Commissions by Stock";@33;"Commission  % of total"
  28.   {@33;"----------  ----------"
  29.   ¢i% 1 qsktr% 1
  30.  {skt$(i%);@32;&11skt%(i%);@47; (skt%(i%) 100 tkt%,"999.00%")
  31.   ▒i%
  32.   {@33;"==========  =========="
  33.   {@32;&11tkt%;@47; (100,"999.00%")
  34.   {@33;"==========  =========="
  35.  
  36.   Æ ┴
  37.  
  38.   ƒ
  39.   {@1;hd1$;@65;hd12$
  40.   {
  41.   {@1;hd2$
  42.   {@1;hd3$
  43.   {@1;hd4$
  44.   Æ ƒ
  45.  
  46.   ₧Stock_Key.TRANS,USD Value.TRANS,Comm_Value.TRANS,Total_Due.TRANS
  47.   Ç ₧Stock_Key.TRANS
  48.   {
  49.   {@1;&24Stock_Key.TRANS;@26;&36Company Name.STOCKS;@63;&16Stock_Type.STOCKS
  50.   Æ ₧
  51.  
  52.   } ₧Stock_Key.TRANS
  53.   {@52;"   ---------  ----------  -----------"
  54.   {@1;"Totals for ";@13;&15 ₧;@55;&12 lUSD Value.TRANS;&11 lComm_Value.TRANS;@80;&12 lTotal_Due.TRANS
  55.   {@52;"   ---------  ----------  -----------"
  56.  skt%(sktr%)  lcomm_value.TRANS:skt$(sktr%)  ₧
  57.  sktr% sktr% 1
  58.   Æ ₧
  59.  
  60.   ╔@1;&10Trans_Date.TRANS;@12;&1Trans_Type.TRANS;@14;&7Transaction ref.TRANS;@22;&9Quantity.TRANS;
  61.  @32;&8Units.CURRENCY;@41;&12Stock_Price.TRANS;@54;&10USD Value.TRANS;@65;&11Comm_Value.TRANS;@78;&11Total_Due.TRANS
  62.   ╨Stock_Key.TRANS Stock_Key.STOCKS  Currency.CURRENCY Currency.TRANS
  63.   ╡Stock_Key.TRANS,Transaction ref.TRANS
  64.  
  65. m2: 
  66.   íp$ "d" p
  67.  ╩ ╦ss14$
  68.  ╧ Ñ  ▀
  69.   Æ í
  70.  
  71. repeat: 
  72.   ┬ms3$,"",135,a%
  73.   ía% 0 p wrexit
  74.   íp$ "p" p ╣;
  75.   wm1
  76.  
  77. rexit: 
  78.   ä"menu"
  79.  
  80. rerror: ╜ On error
  81.  res% 0
  82.   í & 11 p
  83.  ┬ms21$,ms22$,130,a%: ía% 1 pres% 1
  84.   ^ í & 27 p
  85.  ┬ms11$,ms12$,100,a%:res% 2
  86.   ^
  87.  ┬ (( &),"",113,a%:res% 1
  88.   Æ í
  89.   íres% 1 p yrepeat 
  90.   íres% 2 p yrexit
  91.   É
  92.  
  93.